﻿
Public Class Pj : Inherits PictureBox
    Public pos As Integer
    Public vx As Double
    Public vy As Byte
    Public imagen As Integer = 0
    Public Sub New()
        Me.Top = 150
        Me.Left = 65
        Me.Width = 36
        Me.Height = 50
        Me.Image = My.Resources.Programador1
        pos = 3
        vx = 1
        vy = 1
    End Sub
    Public Function mover() As Boolean
        moverPj()
        timerGenerarObjetos()
        If colisionComerciales() = -1 Then Return -1
        colisionCafe()
        Return 0
    End Function
    Public Sub animar()
        Static siguientemov As Integer = 10
        siguientemov -= 1
        If siguientemov = 0 Then
            siguientemov = 10
            If imagen = 0 Then
                imagen = 1
                Image = My.Resources.Programador2
            ElseIf imagen = 1 Then
                imagen = 2
                Image = My.Resources.Programador3
            ElseIf imagen = 2 Then
                imagen = 3
                Image = My.Resources.Programador2
            ElseIf imagen = 3 Then
                imagen = 0
                Image = My.Resources.Programador1
            End If
        End If
    End Sub

    Private Sub moverPj()
        If Me.Top > pos * 50 Then
            Me.Top -= vy
        Else
            If Me.Top < pos * 50 Then
                Me.Top += vy
            End If
        End If
    End Sub
    Private Function colisionComerciales()
        For i = Main.juego.comerciales.count - 1 To 0 Step -1
            If Main.juego.comerciales(i).colision(Me.Left + 10, Me.Top + 20, Me.Width - 20, Me.Height - 35) Then
                If Main.juego.choque(1) = False Then
                    Return -1
                End If
                Main.juego.Controls.Remove(Main.juego.comerciales(i))
                Main.juego.comerciales.removeAt(i)
            End If
        Next
        Return 0
    End Function

    Private Sub colisionCafe()
        For i = Main.juego.cafes.count - 1 To 0 Step -1
            If Main.juego.cafes(i).colision(Me.Left + 10, Me.Top + 20, Me.Width - 20, Me.Height - 35) Then
                Main.juego.choque(2)
                Main.juego.Controls.Remove(Main.juego.cafes(i))
                Main.juego.cafes.removeAt(i)
            End If
        Next
    End Sub
    Private Sub timerGenerarObjetos()
        Static generar As Integer
        generar -= vx
        If generar < 0 Then
            generar = 500
            Main.juego.generar()
        End If
    End Sub
End Class
